home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / tool / watanabe / mouse / mouse_32.bas < prev    next >
BASIC Source File  |  1995-01-09  |  820b  |  20 lines
  1. 100 '********************************************************************
  2. 110 '*           マウスカーソルデータ読み込みサンプルプログラム         *
  3. 120 '*                                 （32×32ドット単色）             *
  4. 130 '*                               １月９日（月）  (C)渡辺 良一       *
  5. 140 '********************************************************************
  6. 150 SCREEN 0:SCREEN@0:DEFINT A-Z
  7. 160 COLOR 7,1:CLS:DIM A(63),D(63)
  8. 170 OPEN"I",#1,"mouse_32.dat"
  9. 180 FOR I=0 TO 63
  10. 190   A(I)=CVI(INPUT$(2,1))
  11. 200   D(I)=CVI(INPUT$(2,1))
  12. 210 NEXT
  13. 220 MOUSE 0 'マウス初期化
  14. 230 MOUSE 6,0,A%,D%,0,0 'マウスカーソルグラフィック設定
  15. 240 'マウス移動比率をＴｏｗｎｓＯＳ設定値に設定
  16. 250 MOUSE 3,0,INP(&H3B06):MOUSE 3,1,INP(&H3B06)
  17. 260 MOUSE 1,320,240,1 'マウス表示
  18. 270 WHILE NOT(MOUSE(2,0)):WEND
  19. 280 END
  20.